99 IFA=0THENA=1:LOAD"VBLINKOBJ",8,1
100 POKE56,28:POKE55,0:CLR
110 NU=7
120 V1=1:V2=2:CO=646:HI=28
140 POKEV1,0:POKEV2,HI
150 REM ** CHANGE THESE VALUES TO CHANGE THE BLINK COLORS
160 DIMCT(NU)
170 FORI=0TONU:CT(I)=NU-I:NEXT
180 REM ** USR() IS AT $C000 FOR 64, $3C00 FOR +4/16, $1C00 FOR VIC **
190 SD=16384: REM ** SET DELAY FLAG
200 DB=8192 : REM ** DISABLE BLINK
210 EB=4096 : REM ** ENABLE BLINK
220 SB=2048 : REM ** STOP COLOR FROM BLINKING
230 MB=1024 : REM ** MAKE COLOR START BLINKG
240 VB=512  : REM ** RETURN VALUE OF BLINKING COLOR
250 RC=256  : REM ** RESET ALL COLORS-NNO BLINKING
260 REM *** NOW WE DEMONSTRATE BLINK
270 X=USR(DB): REM ** MUST DISABLE BLINKMODE FIRST
280 PRINT"[147]"
290 POKE53280,0:POKE53281,0:REM MAKE BACKGROUND BLACK
300 REM FOR +4/16 - COLOR 0,1,7:COLOR 4,1,7 IN LINE 290
310 REM FOR VIC - POKE36879,8 IN LINE 290
320 FOR L=0 TO NU: REM ** SET ALL THE COLORS
330 CL=CT(L)
340 X=USR(MB+(CL*16)+L): REM ** SET THE COLOR TO BLINK TO
350 POKECO,L:REM ** CHANGE CURRENT COLOR TO X
360 PRINT"BLINKING FROM"L"TO"CL
370 NEXT L
380 X=USR(SD+60): REM * SET BLINK FOR 1 SECOND
390 PRINT:PRINT"HIT A KEY TO START"
400 GETA$:IFA$="" THEN400
410 X=USR(EB)
420 END